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RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 
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RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 
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RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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ZTITLE ‘Misc save/restore for nesting directives' 
MODULE STKFRM ( 
IDENT = ‘V04-000' 
%BL1SS32C 
ADDRESSING MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 


)s 


vv 
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BEGIN 


Be cag elaine te eee 
'® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

'® ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE Se eeaate NOTICE. THIS SOFTWARE OR ANY OTHER 
al COPIES THEREOF MAY NOT BE PROVIDED OR OIHERWISE MADE AVAILABLE TO ANY 
!t OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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'® TRANSFERRED. * 
* 
* 
* 
* 
« 
* 
+ 
x 
* 
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iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
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A PWN OOD ONOUSWN—OOONOUS wr 
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is DIGITAL ASSUMES NO RESPONSIB 
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FOR THE USE OR _ RELIABILITY OF ITS 


MPONoronroronrofnoens— 
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0 08 is 

1 83 ‘haa adalat ih aaalhkcahladahiticiaatallaiininainle 
‘ 03 i¢¢ 

‘ bs FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

6 03 i ABSTRACT: Used by .NOTE, .LIST, .END NOTE and .END LIST to save/restore 

7 03 i various formatting information. 

en aE 

? R ENVIRONMENT: Transportable 

¢ 04 AUTHOR: R.W.Friday CREATION DATE: June, 1978 
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peerre "Revision History’ 

MODIFIED BY: 

002 REMO0002 Ray Marshall 07-Mar-1983 
i 
ie 


Global edit of all ‘nodules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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STKFRM Misc save/restore for nesting directives 18-5 -1984 01:50:1 AX-11 Bliss-32 V4.0-74 
v04-000 Module Level Declarations ° 1 =3007 138% 94:38:18 RUNOFFCSRESSTEERM-OL 1 eet (33 


3 is is ! XSBTTL "Module Level Declarations’ 

: 5 1! TABLE OF CONTENTS: 

3 8 0 8 1! 

: 59 09 ii 

: 60 0 8 1 i INCLUDE FILES: 

: 61 059 1/3 

; 6¢ 060 1 

; 6 061 1 LIBRARY 'NXPORT:XPORT’; ! XPORT Library 

: 64 O6¢ REQUIRE "REQ:RNODEF'; i RUNOFF variant definitions 
; 66 U 0194 1 SIF DSRPLUS XTHEN 

tor & U 0195 1 LIBRARY REQ:DPLLIB'; ! DSRPLUS BLISS Library 
e B15? | LIBRARY °REQ:DSRLIB° ! DSR BLISS Lib 

: , ; rar 
9 198 1 XFi ’ 
: #71 199 1 

: te 00 1! 

ae 0201 1 | MACROS 

: 7% 0 08 1 

: 75 0203 1} 

> 76 0204 1 | EQUATED SYMBOLS: 

Zee 0205 1: 

; fe 0 38 .. 7 

: 79 0207 1 | OWN STORAGE: 

; 680 0 08 1 

: 81 09 1! 

; Be 0210 1 ! EXTERNAL REFERENCES: 

; 8 0211 1: 

: 84 0 \¢ 1 

oe 0213 1 EXTERNAL 

> 86 0214 1 FRMSTD, 

: 87 0215 1 FRMSTK : FORM STACK, 

; «88 0216 1 GCA : GCA_DEFINITION 

; 89 0217 1 IRAC : IRAC_DEFINITION, 

; 30 9 18 SCA : SCA_DEFINITION; 

. ¥ 03 QO 1 EXTERNAL LITERAL ‘Error messages 
; 9 0221 1 RNFNSF, 

; 02 2 1 RNFSTD, 

: 95 0 1 RNF UME ; 

s 8 $e 1 

ig, 5 1 EXTERNAL ROUTINE 

; 98 § 1 ERM 

3 99 1 ER 

: 100 8 1 PNTBAC; 

+ 101 29 1 
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save/restore for nesting di ti 16-Sep-1984 :50:1 AX-11 Bliss- 4.0-74 
v04-000 we ee Soe 1ergee= 188s 94:38:18 te osReSsterAN or tei eal 


-$ RUNOFF . 


ZSBTTL 'STKFRM -=-' 
GLOBAL ROUTINE stkfrm (handler_code) : = 


++ 
; FUNCTIONAL DESCRIPTION: 
See APSTRACT, above. 

i FORMAL PARAMETERS: 

! Handler_code indicates which command requires formatting 

: information to be stacked or unstacked. 

; The value 0 means push without checking; the value -1 

: means pop without checking. These two values are provided 

: for the indexing routines, which have to save this information. 

; Values =1 and 0 are also used for handling literals. 

: When FRMSTK is allocated, there will be one extra place allocated 
: so that at least one ee will remain, even when .NOTES 

and .LISTS are nested to their Limits. 

{ IMPLICIT INPUTS: None 

i IMPLICIT OUTPUTS: None 

i 

i 

i 

' 

i 

' 
in 


ROUTINE VALUE: 
COMPLETION CODES: 


Returns TRUE if no errors were detected. Returns FALSE 
if the operation was not done. 


SIDE EFFECTS: None 
BEGIN 
SELECT .handler_code OF 
SET 


Ch_note, h_list] : 
BEGIN 
IF .frmstd EQL frmstk_limit THEN 
BEGIN 


erma (rnfstd, false); 
RETURN false; 
END; 


‘Ignore command because of stack overflow 


CO, h_note, h_list] : 
BEGIN 
'Save items on stack. 
frmstd = .frmstd + 1; 
frmstk C.frmstd, frmstk_fill ~sca_fill; 
.sca_justify; 
-SCa_crock; 


frmstk C.frmstd, frmstk— iy] 
frmstk C.frmstd, frastk_crock 
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V04-000 fh == . 12-88b-188e 93:08:18 — ERUNOFE SRESSTEFRM OL; we 
160 frmstk (.frmstd, frmstk rm = .scarm; 
161 frmstk |.frmstd, frmstk_|m = .sca_lm; 
16 frmstk [.frmstd, irmesk spacings = .sca_spacing; 
16 frmstk L.frmstd, frmstk_comman = shandler co e; 
frmstk L.frmstd, frmstk_iseqn] = .irac_iseqn; 
frmstk L.frmstd, frmstk_ipagen = .irac_ipagen; 
frmstk L.frmstd, frmstk_fspecp = .irac_fspecp; 
frmstk [.frmstd, frmstk_fspec = .irac_fspecc; 
frmstk L.frmstd, frmstk_req_d = .gca_req_depth; 
frmstk [.frmstd, frmstk_do_nbits] = .sca_do_nbits; 
frmstk L.frmstd, frmstk_ker] = .sca_ker; 
frmstk L.frmstd, frmstk_index] = .sca_index; 


RETURN true; 
END; 


'Some general error checking before popping the stack 
Ch_end_note, h_end_list] : 
BEGIN 


IF .frmstd EQL 0 THEN 
BEGIN 


erma (rnfume, false); 
Sg false; 


'The stack is empty 


END; 
Ch_end_note] : 


BEGIN 


IF .frmstk C.frmstd, frmstk command] NEQ h_note THEN 
BEGIN 'The entry was not made by a .NOTE command. 
erma (rnfume, false); 
potbec 0); 
E 


ETURN false; 
ND; 
END; 


Ch_end_ list] : 
BEGIN 


IF .frmstk C.frmstd, frmstk_command] NEQ h_list THEN 
BEGIN 'The entry was not made by a .LIST command. 
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erma (rnfume, false); 
pores (); 

ETURN false; 

END; 


END; 


'Pop the stack, Give a warning message if the .END command is not 
'in the same file as the command that started the list or note. 


Ch_end_note, -1, h_end_list] : 
BEGIN 
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3 0 47 & 
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> 205 § 53 
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: 5% 56 

Peo 
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: i b368 2 

: 237 0364 2 TES; 

3 38 0365 true 

; 39 0366 1 END; 
0000006€ 
00000072 
0000006€ 
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1986 95:08:18 — ERUNOFFesReSSTKFRM-BLI; 


IF alcrete C.frmstd, frmstk_req_d) NEQ .gca_req_depth THEN 


erma (rnfnsf, false); 
ntbac (); 


p tbac (); 
ND; 
'Restore items from stack. 
sca_fill = .frmstk [.frmstd, frmstk_filld; 
sca_justify = .frmstk (.frmstd, frmstk~ justify); 
sca.crock = .frmstk [.frmstd, frmstk_crockJ; 
sca_rm = .frmstk [.frmstd, frmstk rm]; 
sca_lm = .frmstk L.frmstd, frmstk_lmJ; 
sca_spacing = .frmstk L.frmstd, srastk spec ing); 
sca_do_nbits= .frmstk [.frmstd, frmstk_do_nbi si; 
sca_ker = .frmstk L.frmstd, frmstk_kerJ; 
sca_index = .frmstk C.frmstd, frmstk_index]; 
frmstd = .frmstd - 1; 
RETURN true; 
END; 
!End of STKFRM 
-TITLE STKFRM Misc save/restore for nesting directives 
IDENT \V04-000\ 
EXTRN FRMSTD, FRMSTK, GCA 
-EXTRN IRAC, SCA, RNENSF 
EXTRN RNFSTD, RNFUME, ERM 
EXTRN ERMA, PNTBAC 
PSECT $CODE$,NOWRT,2 
O7FC 00000 eENTRY STKFRM, Save R2,R3,R4,R5,R6,R7,R8,R9,R10 
5A 494444443 Hi 43 00002 MOVAB PNTBAC, R1 
39 000000006 BF pO 00009 MOVL WRNFUE 
28 0000 G EF 9E gett MOVAB GCA+188, R8 
2 Bp G EF 9€ 0001 MOVAB MA, R 
6 G EF 9E pote MOVAB IRAC+8, R 
2? 3 G EF 9€E 4 MOVAB FRMSTD, R 
4 000 6 G EF 9€ 00 ¢ MOVAB SCA+104, R4 
33 000000006 EF 4 9 MOVAB FRMSTK-40, R3 
4 Ac D A MOVL HANDLER CODE, R2 
8F 5 o CMPL R2, #110 
2 1 4 BEQL 
8F D1 4 CMPL R2, #114 
10 12 4 BNEQ 
OF D1 1$: CMPL FRMSTD, #15 
B i BNEQ $ 
—E D CLRL -(SP) 
00000000G_ 8F bo PUSHL #RNFSTD 
0087 31 BRW 6$ 
b 23: TSTL R 
12 1 BEQL 3 
8F 52 01 CMPL Re, #110 
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STKFRM Misc save/restore for nesting directives 1b-5e -1984 21 AX-11 Bliss-32 V4.0-74 
v04-000 STKFRM == 9 14- O=1986 9}: 38; 18 RUNOFF -SROISTKFRM-BLI: 
00000000G 8F ODD 0013 PUSHL #RNFNSF 
¢7 3 FB 14 CALLS #2, ERMA 
A Fe 14 CALL #0, PNTBAC 
50 65 F C5 00148 13$ MULL3 #15, FRMSTD, R 
00 84 EC A DO O014F MOVL FRMSTK=6 ro), ascA+04 
F B4 FO A340 OD 133 MOV FRMSTK=56LROJ, @SCA+1 
0 B4 18 A34 D 1 MOVL as tg ROJ, @SCA+11 
1 B4 F4 A340 OD 16 MOVL FRMSTK=52CROJ, soya le 
OC 3 B4 FB A340 OD 1 MOVL FRMSTK=48(ROJ, @SCA+116 
14 B4 FC A340 OD 4 MOVL FRMSTK-44(ROJ, Hae 
40 AS if A34 D 1 3 MOVL FRMSTK-12LROJ, SCA+1 
1C B4 § A34 D 17 MOVL FRMSTK=-8 AY » @SCA+132 
6C AG 4 A340 D 17F MOVL FRMSTK=4LROJ, SCA+21 
g D 185 DECL FRMST 
50 1 00 gat 7 14$: MOVL #1, R 
04 0018A RET 
; Routine Size: 395 bytes, Routine Base: S$CODE$ + 0000 
40 0367 1 
41 0368 1 END 'End of module 
42 0369 0 ELUDOM 
3 PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 395 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
: eocecece Symbols -------- Pages Processing 
5 File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBIXPORT.L32;1 9 252 :00.1 
Eee CUASBSERUNOFE SRCTDSRL TB LL 32:1 1328 49 : 6 $0:00:3 
; COMMAND QUALIFIERS 
HY BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:STKFRM/OBJ=OBJ$:STKFRM MSRC$:STKFRM/UPDATE=(ENHS: STKFRM) 
3; Size: 395 code + 0 data bytes 
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